Option Explicit
Sub Q_Sample050()
    ']wޥζ Windows Script Host Object Model
    Dim myWshNw   As IWshRuntimeLibrary.WshNetwork
    Dim myStr     As String
    Set myWshNw = CreateObject("Wscript.Network")
    myStr = "\\Server\Printer"                         'n]wLW
    Debug.Print Application.ActivePrinter
    If Application.ActivePrinter Like myStr & "*" Then
    Else
        myWshNw.SetDefaultPrinter (myStr)
    End If
    Debug.Print Application.ActivePrinter
    Set myWshNw = Nothing                               '
End Sub

